In het volgende voorbeeld wordt getoond hoe alle besturingselementen op een formulier kunnen worden verplaatst met de methode Move en de collectie Controls. De gebruiker klikt op de CommandButton om de besturingselementen te verplaatsen.
Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier een CommandButton bevat met de naam CommandButton1 en meerdere andere besturingselementen.
Private Sub CommandButton1_Click()
'Move each control on the form right 25 points
'and up 25 points.
Controls.Move 25, -25
End Sub